COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE NAMEXT
C00004 ENDMK
C⊗;
	SUBROUTINE NAMEXT
	DATA EXT/'DMD'/
	COMMON /ALF/I(10) /DL/A,B,NAME,EXT
11	TYPE 12
	ACCEPT 1,I
	DO 2 K=2,6
	IF(I(K).EQ.' ')GO TO 3
2	IF(I(K).EQ.'.')GO TO 4
	TYPE 10
	GO TO 11
10	FORMAT(' 5 LTR NAME + EXT ONLY'/)
12	FORMAT(' TYPE FILE NAME -- '$)
3	REREAD 99,NAME
	RETURN
4	GO TO(1,5,6,7,8,9),K
1	FORMAT(10A1)
55	FORMAT(2A1,A3)
66	FORMAT(A2,A1,A3)
77	FORMAT(A3,A1,A3)
88	FORMAT(A4,A1,A3)
99	FORMAT(A5,A1,A3)
5	REREAD 55,NAME,K,EXT
	RETURN
6	REREAD 66,NAME,K,EXT
	RETURN
7	REREAD 77,NAME,K,EXT
	RETURN
8	REREAD 88,NAME,K,EXT
	RETURN
9	REREAD 99,NAME,K,EXT
	END